home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / Pearl / Pearl next >
Text File  |  1990-05-18  |  2KB  |  47 lines
  1. {Pearl - For the Strafing
  2. Matthew Sakai,4/13/90 (Friday, by coincidence)
  3. A totally new concept}
  4.  
  5. #The beginning
  6. begin: x 150 > ri le ife
  7. ri: drop
  8. rig: x 280 > slowr if 5 speedx' store collision help if rig jump
  9. le: drop
  10. lef: x 20 < slowl if -5 speedx' store collision help if lef jump
  11. slowr: x 288 > stopr if 1 speedx' store collision help if slowr jump
  12. slowl: x 12 < stopl if -1 speedx' store collision help if slowl jump
  13. # The main program
  14. stopr: 0 speedx' store -10 speedy' store 270 aim' store
  15. up: y 30 < upleft if 1 missile' store collision kilu if up jump
  16. left: x 30 < leftdown if 1 missile' store collision kill if left jump
  17. stopl: 0 speedx' store 10 speedy' store
  18. down: y 270 > downright if 1 missile' store collision kild if down jump
  19. right: x 270 > rightup if 1 missile' store collision kilr if right jump
  20. upleft: -1 speedy' store y 13 < ul if collision kill if upleft jump
  21. ul: 0 speedy' store -10 speedx' store 180 aim' store left jump
  22. leftdown: -1 speedx' store x 13 < ld if collision kild if leftdown jump
  23. ld: 0 speedx' store 10 speedy' store 90 aim' store down jump
  24. downright: 1 speedy' store y 288 > dr if collision kilr if downright jump
  25. dr: 0 speedy' store 10 speedx' store 0 aim' store right jump
  26. rightup: 1 speedx' store x 288 > ru if collision kilu if rightup jump
  27. ru: 0 speedx' store -10 speedy' store 270 aim' store up jump
  28. kill: energy 80 > nukl kil ife
  29. kilu: energy 80 > nuku kiu ife
  30. kilr: energy 80 > nukr kir ife
  31. kild: energy 80 > nukd kid ife
  32. kil: range killl if 270 aim' store range killl if 225 aim' store range killl if collision help if return
  33. kiu: range killl if 0 aim' store range killl if 315 aim' store range killl if collision help if return
  34. kir: range killl if 90 aim' store range killl if 45 aim' store range killl if collision help if return
  35. kid: range killl if 180 aim' store range killl if 135 aim' store range killl if collision help if return
  36. killl: range 30 > junk if collision not junk if 50 missile' store drop collision ki if return
  37. ki: 50 missile' store drop nop nop nop nop nop nop nop collision ki if drop return
  38. nukl: 6 speedx' store energy nuke' store
  39. nul: x 279 > ul if collision kilr if nul jump
  40. nuku: 6 speedy' store energy nuke' store
  41. nuu: y 279 > ru if collision kild if nuu jump
  42. nukr: -6 speedx' store energy nuke' store
  43. nur: x 21 < dr if collision kill if nur jump
  44. nukd: -6 speedy' store energy nuke' store
  45. nud: x 21 < ld if collision kilu if nud jump
  46. help: aim 298 + aim' store range killl if collision help if return
  47. junk: drop return